#!/usr/bin/perl -w

use strict;
use Time::HiRes qw(time);
use Stdlog qw(:all);


info("If you see this info message, there's a problem");

my $iters = 100;
my $t = time;
for(1..$iters){
    notice("This is a notice message: $_");
}
$t = (time - $t) * 1000;
printf("%d notices took %.3f msec or %.3f msec per call\n",
       $iters, $t, $t / $iters);
       
error("This is an error");

fatal("This is a fatal message");